www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\Model\ComponentLabels\手机号输入框控件\do_add_mode_label.asp
<%'$start_ext_newDsoft 以下系统生成,勿删! '$newDsoft_label_type$:asp_label$end_newDsoft_label_type$ '$newDsoft_label_name$:$doaddmode$-ComponentLabel-$$end_newDsoft_label_name$ '$newDsoft_label_sql$: $end_newDsoft_label_sql$ '$newDsoft_label_params$:inull,是否允许空$end_newDsoft_label_params$ '$newDsoft_label_fenye_num$: $end_newDsoft_label_fenye_num$ '$newDsoft_label_beizhu$:手机输入框控件在添加页的处理页里的标签$end_newDsoft_label_beizhu$ '$newDsoft_is_sys_label$:0$end_newDsoft_is_sys_label$ '$newDsoft_other_params$:htmledxa:|htmledxb:$end_newDsoft_other_params$ '$end_ext_newDsoft%><% if $mypost$value$="" and cstr($xxvar$inull)="0" then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"不能为空!\n" end if if $mypost$value$<>"" then Set RegEx = New RegExp RegEx.IgnoreCase =True RegEx.Pattern = "^[0-9\-]{11,16}$" if RegEx.test($mypost$value$)<>true then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"的手机号格式错误!\n" end if Set RegEx =nothing end if $mysave$value$=$mypost$value$ %>